﻿Public Class frmOrder

    Private Sub dgvlist_RowPrePaint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewRowPrePaintEventArgs) Handles dgvlist.RowPrePaint
        If e.RowIndex >= 0 Then
            Me.dgvlist.Rows(e.RowIndex).Cells(0).Value = e.RowIndex + 1
        End If
    End Sub
    Private Sub checkpay_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles checkpay.CheckedChanged
        If checkpay.Checked = False Then
            GroupPay.Visible = True
        Else
            GroupPay.Visible = False
        End If
    End Sub
End Class